
;=================================================
;
; API - possibility to invoke outer mechanism, and to know
; about the state of the outer environment
;
; Programming constructs - possibility to create logic layer
;
; Documentation - let us know what certain code does
;
; Requirements - (main) provide executor with an information
; about our desires



(defun test ()
 (setf api-rec-1
  (list
   :name "fopen"
   :return '(:type 'int :fail-if (< 0))
   :args '(
       (:name "input-file-name" :type (const char *) :constraint non-null)
       (:name "access-rights")
       )
   )
  ) ; api-rec-1
 (format t "rec = ~a" (getf api-rec-1 :return))
 )

(defun main ()
 (format t "in main~%")

 (test)

 (exit)
 )

(main)
